<text> This simply tells you the number of files to be renamed. It may not be the same as the number of items in the folder because AutoRename only works on one folder contents at a time, ignoring enclosed folders.</text>
</content>
<name>Total</name>
<script></script>
</card>
card_5819.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<text> If you are planning to rename the files for use on the Internet, such as uploading many JPEG files to your Homepage for use on the Internet, then you would want to be sure that every JPEG file included the necessary .jpg File Extention before you upload. Simply type in a Base Name, click the Force *.* pop-up menu, select .jpg from the menu, and click begin.NOTE: When Forcing File Extentions make very sure that every file to be renamed is a file of the Forced file Extention. If a file is supposed to be a .jpg for use on the internet it would not work on a browser if it were to be renamed .txt or some other extention. Only the Macintosh® computers do not require this sort of FIle Extention in order to process files correctly.Macintosh® and Macintosh® computers are registerd trademarks of Apple Computers Inc.. All Rights Reserved.</text>
</content>
<name>Force *.</name>
<script></script>
</card>
card_4800.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<text> The Base Name is the text that will be used on every file before it applys a value.Example: If the Base Name was "Picture" then the list would look like this:Picture1Picture2Picture3Picture4Picture5NOTE: This list was created without File Extentions. When selecting a Base Name, note that it should be a name the doesn't already exist. If it does exist (with a number) then this program could skip it and in turn may skip several others. In other words, if the folder contains "pict1.gif" and you are going to make your base word "pict", this program will not be able to rename it, also it may skip other documents. The best way to avoid this error is to rename all files a name that you are sure doesn't exist, then rename them the prefered name. Only do this if there is a file already named the prefered base name and a number like in the example.</text>
</content>
<name>EditName</name>
<script></script>
</card>
card_4519.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<text> Click the button "Select Folder", use the dialog to select the folder you are going to AutoRename. NOTE: AutoRename will ignore enclosed folders. It will only rename FILES that are enclosed in the selected folder.</text>
</content>
<name>Select Folder</name>
<script></script>
</card>
card_4321.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<text> This is simple. Just click on the "Help" button and either:1. Select "Topics". View the topic list and select one.or2. Click "Help" and then click the "?" cursor onto a button or text that you require help on.</text>
</content>
<name>Help</name>
<script></script>
</card>
card_6141.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<text> If you are not going to use this for the renaming of Internet files or for cross-platform preperation, then File Extentions are not necessary. You may click the Ignore File Extention button and it will remove any File Extentions and will rename entire file names according to the Base Name and the number. File Extentions, if you don't know, are the three or four letters following the "." in a file name.Example: filename.gif ^-------- the ".gif" is the extention If you are not familiar with these it is probably because on a Macintosh® computer they are unnecessary. The Macintosh® remembers file types based on their File Type code and their File Creator Code. An internet file must, however, contain a file extention for it to be a certain file. This is because when an Internet browser retrieves files from the Internet, it must know what type of file it is in order to process it (i.g. display a picture file, show the text of a document, save it to disk for decompression, etc.). Without getting into too much about why, just understand that it is necessary to have File extentions on the Internet, but not on just the Macintosh® computer. This feature is intended to prepare files without the need of extentions.Macintosh® and Macintosh® computers are registerd trademarks of Apple Computers Inc.. All Rights Reserved.</text>
</content>
<name>Ignore File Extentions (*.*)</name>
<script></script>
</card>
card_6266.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<text><span class="style1"> </span><span class="style3">This function is not available in this version.</span><span class="style1"> When a computer lists files according to the alphabet, it searches like we do when looking up words in a dictionary: begin with the first letter, match up the first letters, then second, and so on. We forget that to a computer, this would be the actual "alphabetical" order for the following:Filename1Filename2Filename3Filename4Filename5Filename50Filename6Filename7 The problem is that "Filename50" should go way after the list, but when the computer just looks letter-by-letter instead of the "logical" way. To solve this problem, Use Leading Zero makes it so the computer will always list accurately. Look at the same list as above, only with leading zeros:Filename01Filename02Filename03Filename04Filename05Filename06Filename07Filename50 The reason for this is as stated above, it allows the computer to sort correctly according to the numerical order. This feature will look at the number of files to rename and then chooses the amount of leading zeros that would be appropriate.</span></text>
</content>
<name>Use Leading Zero</name>
<script></script>
</card>
card_6618.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<text> The "Use Protection" button will make it so the computer will always give you the option to "Cancel" the procedure before it actually begins to AutoRename. This is just a saftey feature. NOTE: Once files have been renamed, there is no way to "undo". That is the reason for the reminder and "Cancel" button.</text>
</content>
<name>Use Protection</name>
<script></script>
</card>
card_6878.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<text> This adds or deletes extentions that have been saved in the Force *.* pop-up menu. To add or delete File Extentions (txt, mov, zip,etc.) for use of uploading to internet, just click the Add/Del button and add your own file extention. Remember, this will not select your new extention, it will just add it to the Force *.* pop-up menu.</text>
</content>
<name>Add/Del</name>
<script></script>
</card>
card_7707.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<text> When you have selected a folder to AutoRename and have chosen a Base Name, click the Begin button to start the process of renaming. Once clicked the computer will begin to rename all the files located inside the selected folder to the Base Name with a number like:ScreenDump1ScreenDump2ScreenDump3ScreenDump4 The original files could have been named anything, but AutoRename will go through the whole folder (not including enclosed folders) and rename all the documents for easier systematic listing.</text>
</content>
<name>Begin</name>
<script></script>
</card>
card_2985.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpglobal FolderPathanswer folder "Please select a folder to sort."if it is not empty thenput it into FolderPathput FolderPath into cd btn id 2set the name of cd btn id 2 to FolderName(FolderPath)send "MouseUp" to cd btn id 2put "" into cd field "EditName"show cd btn "Close Folder"elsesend "MouseUp" to cd btn id 2put "" into cd field "EditName"end ifend mouseUp</script>
</part>
<part>
<id>2</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>191</left>
<top>6</top>
<right>387</right>
<bottom>54</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>22710</icon>
<textAlign>center</textAlign>
<font>Charcoal</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseUpif the short name of cd btn id 2 = "card button id 2" then-- send "MouseUP" to cd btn "Select Folder"elseDoGetDirend ifend mouseUp</script>
</part>
<part>
<id>3</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>4</left>
<top>30</top>
<right>183</right>
<bottom>213</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Charcoal</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>FileDirectory</name>
<script></script>
</part>
<part>
<id>4</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>192</left>
<top>58</top>
<right>302</right>
<bottom>76</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Charcoal</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>EditName_</name>
<script></script>
</part>
<part>
<id>5</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>192</left>
<top>78</top>
<right>409</right>
<bottom>105</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>EditName</name>
<script></script>
</part>
<part>
<id>6</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>332</left>
<top>207</top>
<right>410</right>
<bottom>235</bottom>
</rect>
<style>default</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Charcoal</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Begin</name>
<script>on mouseUpif the short name of cd btn id 2 = "card button id 2" thenanswer "You must select a folder to sort first."elseif the hilite of cd btn "Use Protection" = true thenanswer "This will rename all the files contained inside the folder"&&¬(the short name of cd btn id 2)&"."&return&¬"Proceed with caution!" with "Cancel" or "OK"if it <> "OK" thenpass mouseupend ifend ifDoRenameend ifend mouseUp</script>
<script>on mouseUpselect line 1 of cd btn id 15end mouseUp</script>
</part>
<part>
<id>15</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>189</left>
<top>170</top>
<right>327</right>
<bottom>189</bottom>
</rect>
<style>popup</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>56</titleWidth>
<selectedLines>
<integer>1</integer>
</selectedLines>
<textAlign>center</textAlign>
<font>Charcoal</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Force *.</name>
<script>on MouseEnterdelete line 1 of medelete line 1 of mesort meput "None" & return & "-"& return before line 1 of meend MouseEnteron MouseUpif word 2 of (the selectedline of me) = 1 then-- set the hilite of cd btn id 14 to trueelseset the hilite of cd btn id 14 to falseend ifend MouseUP</script>
</part>
<part>
<id>16</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>330</left>
<top>174</top>
<right>388</right>
<bottom>188</bottom>
</rect>
<style>standard</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Charcoal</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Add/Del</name>
<script>on mouseUpif word 2 of (the selectedline of cd btn id 15) <> empty thenanswer "Proceed with the deletion of this extention or add a new one?" with "Add…" or "OK" or "Cancel"if it = "Add…" thenask "Add a new file extention." with "*.*"if it <> empty thenif cd btn id 15 contains it thenanswer "It already exists."elseput (return & it) after the last line of cd btn id 15send "MouseEnter" to cd btn id 15select line 0 of cd btn id 15set the enabled of cd btn id 14 to trueend ifend ifelse if it = "OK" thendelete the selectedline of cd btn id 15else-- it was canceledpass MouseUpend ifelseask "Add a new file extention." with "*.*"if it <> empty thenif cd btn id 15 contains it thenanswer "It already exists."elseput (return & it) after the last line of cd btn id 15send "MouseEnter" to cd btn id 15select line 0 of cd btn id 15set the enabled of cd btn id 14 to trueend ifend ifend ifend MouseUp</script>
<script>on OpenStackDoResetInfopass OpenStackend OpenStackon CloseStackDoResetInfopass CloseStackend CloseStackon idleglobal SuspendVarif the suspended thensend "mouseup" to cd btn id 2put "true" into SuspendVarelseput "false" into SuspendVarend ifif SuspendVar = "true" thensend "MouseUp" to cd btn id 2put empty into SuspendVarend if-- if the controlkey = "down" then-- repeat until the controlkey = up-- set the cursor to "PopUp Cursor"-- end repeat-- end ifend idleon ArrowKey WhichOneend ArrowKeyon KeyDown WhatKeyif whatKey = numtochar(13) thenset the hilite of cd btn "Begin" to truewait 5 ticksset the hilite of cd btn "Begin" to falsesend "MouseUp" to cd btn "Begin"else if WhatKey = numtochar(3) thenset the hilite of cd btn "Begin" to truewait 5 ticksset the hilite of cd btn "Begin" to falsesend "MouseUp" to cd btn "Begin"else if WhatKey = 28 thenbeepelse if WhatKey = 29 thenbeepelse if WhatKey = 30 thenbeepelse if WhatKey = 31 thenbeepelsepass KeyDownend ifend KeyDownon DoGetDirglobal FolderPathset the cursor to watchlock screenput GetDir(FolderPath) into cd field "FileDirectory"RemoveFoldersset the scroll of cd field "FileDirectory" to 0put "Total:"&&(the number of lines of cd field "FileDirectory") into cd field "Total"unlock screenset the cursor to arrowend DoGetDiron RemoveFoldersrepeat with Tcount = (the number of lines of cd field "FileDirectory") down to 1if line Tcount of cd field "FileDirectory" contains ":" then delete line Tcount of cd field "FileDirectory"end repeatend RemoveFolderson DoRenameglobal FolderPathset the cursor to watchput cd field "EditName" into NewBaseNamerepeat with Tcount = 1 to (the number of lines of cd field "FileDirectory")put line Tcount of cd field "FileDirectory" into OldNameFullRename (FolderPath&OldName),(NewBaseName&LeadingZero(Tcount)&OnlyDotExt(OldName))ProgressBar (the rect of cd btn "ProgressBar"),Tcount,(the number of lines of cd field "FileDirectory")end repeatDoGetDirset the cursor to arrowbeepend DoRenamefunction LeadingZero GimmiNumberreturn GimmiNumberend LeadingZerofunction OnlyDotExt WhatFileif the hilite of cd btn id 14 = false thenif (the selectedtext of cd btn id 15) <> "None" thenreturn "."&(the selectedtext of cd btn id 15)end ifif WhatFile contains "." thenrepeat foreverif the first char of WhatFile = "." thenreturn WhatFileelsedelete the first char of WhatFileend ifend repeatelsereturn emptyend ifend ifend OnlyDotExtfunction FolderName WhatNamedelete the last char of WhatNamerepeat (the number of chars of WhatName) timesif the last char of WhatName <> ":" thenput the last char of WhatName before the first char of NewNamedelete the last char of WhatNameelsereturn NewNameexit repeatend ifend repeatreturn NewNameend FolderNameOn DoResetInfoglobal FolderPathput "" into cd field "FileDirectory"put "" into cd field "EditName"set the name of cd btn id 2 to ""put "" into FolderPathselect line 1 of cd btn id 15set the hilite of cd btn "Use Protection" to trueput "Total:" into cd field "Total"hide cd btn "Close Folder"end DoResetInfofunction MouseOverWhatput the number of btns into BtnNoput the number of fields into FieldNorepeat with Tcount = 1 to BtnNoif there is a cd btn Tcount thenif the mouseloc is within the rect of cd btn Tcount thenreturn "card btn id"&&(the id of cd btn Tcount)exit repeatend ifend ifif there is a cd field Tcount thenif the mouseloc is within the rect of cd field Tcount thenreturn "card field id"&&(the id of cd field Tcount)exit repeatend ifend ifend repeatend MouseOverWhatfunction ShowHelp WhatHelpif WhatHelp <> empty thenreturn the short name of WhatHelpend ifend ShowHelp</script>
.dmg/Shareware World/Utilities/Disk & File/Auto Rename 1.0/AutoRename/AutoRename/PATs.png){kind=link}